home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Tele / G / GEnieDL'er.cpt / Batch DL < prev    next >
Encoding:
Text File  |  1988-08-10  |  2.6 KB  |  83 lines  |  [TEXT/MACA]
  1.  Settings File = GEnie-upl
  2.  Script Name = Batch DL
  3.  Command Key = 
  4.  F-key = 
  5.  Menu = NO
  6.  Button = NO
  7.  
  8. 1   If Expression  "=(EXISTS(online)=false) or (online=false)"
  9. 2     Do Script * " Log On"
  10. 3     When Text Equals  ">elp?"
  11. 4     Or When Seconds Have Passed  "=90"
  12. 5       Do Script * "Timeout Error"
  13. 6     End When
  14. 7   End If
  15. 8   Set Variable BadDL from Expression  "=0"
  16. 9   Set Variable EOF from Expression  "=0"
  17. 10  Send File * Text Line by Line  "DL Files List"
  18. 11  Set Variable FileNumber from File Line  
  19. 12  If Failure 
  20. 13    Do Script * "Set DL List"
  21. 14    Set Variable FileNumber from File Line  
  22. 15  End If
  23. 16  Send Text String  "m 606^M"
  24. 17  When Text Equals  ">elp?"
  25. 18    Send Text String  "6^M"
  26. 19  Or When Seconds Have Passed  "=15"
  27. 20    Do Script * "Timeout Error"
  28. 21  End When
  29. 22  Repeat
  30. 23    Set Variable BadDl from Expression  "=BadDl+1"
  31. 24    When Text Equals  "elp?"
  32. 25      Send Text String  "=FileNumber,'^M'"
  33. 26    Or When Seconds Have Passed  "=15"
  34. 27      Do Script * "Timeout Error"
  35. 28    End When
  36. 29    When Text Equals  "(Y/N)?"
  37. 30      Remark "Bypass bad file numbers"
  38. 31      Set Variable PerfectDL from Expression  "=false"
  39. 32    Or When Line Contains  "<Q>uit."
  40. 33      When Text Equals  "?"
  41. 34        Send Text String  "d^M"
  42. 35      Or When Seconds Have Passed  "=15"
  43. 36        Do Script * "Timeout Error"
  44. 37      End When
  45. 38      When Text Equals  "skip?"
  46. 39        Send Text String  "2^M"
  47. 40        When Line Contains  "receive file"
  48. 41          Receive File * XMODEM MacBinary  ""
  49. 42        Or When Seconds Have Passed  "=15"
  50. 43          Do Script * "Timeout Error"
  51. 44        End When
  52. 45      Or When Seconds Have Passed  "=15"
  53. 46        Do Script * "Timeout Error"
  54. 47      End When
  55. 48    Or When Seconds Have Passed  "=15"
  56. 49      Do Script * "Timeout Error"
  57. 50    End When
  58. 51    Set Variable FileNumber from File Line  
  59. 52    If Failure 
  60. 53      Remark "Must be end of file, so logoff and leave script"
  61. 54      Set Variable EOF from Expression  "=1"
  62. 55      When Text Equals  "(Y/N)?"
  63. 56        Send Text String  "n^M"
  64. 57      Or When Seconds Have Passed  "=15"
  65. 58        Do Script * "Timeout Error"
  66. 59      End When
  67. 60      Wait Seconds  "1"
  68. 61      When Text Equals  ">elp?"
  69. 62        Do Script * "Log Off"
  70. 63      Or When Seconds Have Passed  "=15"
  71. 64        Do Script * "Timeout Error"
  72. 65      End When
  73. 66    Else
  74. 67      When Text Equals  "(Y/N)?"
  75. 68        Send Text String  "y^M"
  76. 69      Or When Seconds Have Passed  "=15"
  77. 70        Do Script * "Timeout Error"
  78. 71      End When
  79. 72    End If
  80. 73  Until Expression  "=(EOF=1)"
  81. 74  Do Script * "Reset DL List"
  82. 75  Remark "by T. Suria"
  83.